home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
KillThread.zprx
< prev
next >
Wrap
Text File
|
1995-03-09
|
1KB
|
45 lines
/*
KillThread.zp 1.0 (12.2.94) by Ueli Kaufmann
ARexx skript für Zodiac's Point V37.118ß
Nutzen:
-------
Killt Threads ab der aktuellen Tiefe.
*/
parse arg zpPort /* ZP-Port Name als Option erhalten. */
if zpPort == "" then /* Wirklich? */
zpPort = "ZPoint" /* Ätschi-Bätschi */
address value zpPort /* fuer die hardcore-user mit mehreren zps ;) */
options results
WHICHLEVEL /* falls wir uns nicht in einem Brett befinden, */
if RESULT ~= "BOARD" then /* wird das Skript automatisch beendet */
exit
MESSAGEINFO Depth /* Tiefe der aktuellen Nachricht ermitteln */
currDepth = RESULT /* und abspeichern */
DELETE ONE /* Kill, kill, kill */
do forever
DOWN /* Balken auf folgende Nachricht stellen. */
if rc ~= 0 then /* Ist da eine? */
do /* yepo. */
MESSAGEINFO Depth /* Tiefe ermitteln */
nextDepth = RESULT /* und abspeichern */
if nextDepth > currDepth then /* Tiefe identisch? */
DELETE ONE /* Kill, kill, kill */
else /* Nein, gleich oder kleiner! */
leave /* Schlaufe verlassen */
end
else
leave /* Schlaufe verlassen */
end
exit